home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / pipedream / Documents / Custom / CF_sheets / c_DatFormF < prev    next >
Encoding:
Text File  |  1991-10-09  |  1.7 KB  |  59 lines
  1. %OP%DP0
  2. %OP%FX
  3. %OP%FY
  4. %OP%FS
  5. %OP%WC2,1652,944,1364,0,0,0,0
  6. %OP%VS3.81 Test (Oct  8 1991), Colton Software - Development, R0123 4567 8901 2345
  7. %CO:A,78,0%%V%%L%function("format_date","when","daypl","theon","dateon","suffon","ofon","monpl","yearpl","sep:text")
  8. %V%%L%if(type(@when)<>"date",result("Bad Date"),)
  9. %V%%L%set_name("yeartext",right(string(year(@when),0),@yearpl))
  10. %V%%L%set_name("month_table",b1b12)
  11. %V%%L%set_name("weekdays",c1c7)
  12. %V%%L%set_name("digit",mod(day(@when),10))
  13. %V%%L%set_name("suffixnames",c12c21)
  14. %V%%L%set_name("suffix",index(suffixnames,1,digit+1))
  15. %V%%L%if(@monpl<>-1,set_name("monthtext",mid(index(month_table,1,month(@when)),1,@monpl)),set_name("monthtext",string(month(@when),0)))
  16. %V%%L%set_name("daytext",mid(index(weekdays,1,weekday(@when)),1,@daypl))
  17. %V%%L%if(@daypl<>0,set_name("date_text",daytext),set_name("date_text",""))
  18. %V%%L%if(@theon=1,set_name("date_text",join(date_text,@sep,c9,@sep)),set_name("date_text",join(date_text,@sep)))
  19. %V%%L%if(@dateon=1,set_name("date_text",join(date_text,string(day(@when),0))),0)
  20. %V%%L%if(@suffon=1,set_name("date_text",join(date_text,suffix)),0)
  21. %V%%L%if(@ofon=1,set_name("date_text",join(date_text,@sep,c10)),set_name("date_text",join(date_text,@sep)))
  22. %V%%L%if(@monpl<>0,set_name("date_text",join(date_text,monthtext)),0)
  23. %V%%L%if(@yearpl<>0,set_name("date_text",join(date_text,@sep,yeartext)),0)
  24. %V%%L%if(left(date_text,1)=@sep,set_name("date_text",right(date_text,length(date_text)-1)),0)
  25. %V%%L%result(date_text)
  26. %CO:B,12,24%Janvier
  27. Février
  28. Mars
  29. Avril
  30. Mai
  31. Juin
  32. Juillet
  33. Août
  34. Séptembre
  35. Octobre
  36. Novembre
  37. Décembre
  38. %CO:C,12,12%dimanche
  39. lundi
  40. mardi
  41. mercredi
  42. jeudi
  43. vendredi
  44. samedi
  45.  
  46. ,le
  47.  
  48.  
  49. me
  50. ère
  51. me
  52. me
  53. me
  54. me
  55. me
  56. me
  57. me
  58. me
  59.